home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / doc.lha / documentation / manual / repeat.lib < prev    next >
Text File  |  1987-06-30  |  389b  |  16 lines
  1. @marker[library, REPEAT]
  2.  
  3. @Counter(RepeatCnt, Numbered [@1])
  4. @Form(Repeat = {@~
  5.    @Set(RepeatCnt = @Parm(Cnt))
  6.    @RepeatDo(Str = @ParmQuote(Str))
  7.    })
  8. @Form(RepeatDo = {@~
  9.    @Imbed[Stop1,
  10.           Def  <@Parm(Str)>,
  11.           UnDef<@parm(Str)@~
  12.                 @ParmSet(RepeatCnt =- 1)@~
  13.                 @RepeatDo(Str = @ParmQuote(Str), Stop@ParmRef(RepeatCnt) = "x")>
  14.           ]})
  15.  
  16.